Aminet 50/Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso/Aminet/util/wb/QuickLens.lha/qlens/table.rexx

OS/2 REXX Batch file | 2001-03-25 | 956b | 42 lines

/* Calculate QLens' tables */
say "TableZ2"
do n.3=0 to 3
  do n.2=0 to 3
    do n.1=0 to 3
      do n.0=0 to 3
        hex="    dc.w    $"
        do n=3 to 0 by -1
          if bittst(n.n,1) then if bittst(n.n,0) then hex=hex"F"
                                                 else hex=hex"C"
                           else if bittst(n.n,0) then hex=hex"3"
                                                 else hex=hex"0"
        end
        say hex
      end
    end
  end
end
say "TableZ4"
do n.7=0 to 1
  do n.6=0 to 1
    do n.5=0 to 1
      do n.4=0 to 1
        do n.3=0 to 1
          do n.2=0 to 1
            do n.1=0 to 1
              do n.0=0 to 1
                hex="    dc.l    $"
                do n=7 to 0 by -1
                  if bittst(n.n,0) then hex=hex"F"
                                   else hex=hex"0"
                end
                say hex
              end
            end
          end
        end
      end
    end
  end
end